home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASCALL / VIDEO / FID.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-16  |  610b  |  30 lines

  1. program fid;
  2. {$M $800,$400,$800 }   { 2K stack, 1/2K heapmin, 1K heapmax }
  3. uses
  4.    Crt,Dos,FVid;
  5. var
  6.    KbdIntVec : Procedure;
  7.    Scren1    ,
  8.    Scren2    : TVid;
  9. {$F+}
  10. procedure Keyclick; interrupt;
  11. begin
  12.    if Port[$60]<$80 then
  13.    begin
  14.       Scren1.Bo;
  15.       Scren2.Bo;
  16.    end;
  17.    inline ($9C); { PUSHF -- Push flags }
  18.    { Call old ISR using saved vector }
  19.    KbdIntVec;
  20. end;
  21. {$F-}
  22. begin
  23.    Scren1.Init(7);
  24.    Scren2.Init(white);
  25.    { Insert ISR into keyboard chain }
  26.    GetIntVec($9,@KbdIntVec);
  27.    SetIntVec($9,Addr(Keyclick));
  28.    Keep(0); { Terminate, stay resident }
  29. end.
  30.